home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / DEF / Convert / Metrics / get-tick < prev    next >
Text File  |  1998-10-23  |  885b  |  27 lines
  1. get-tick length-symbol
  2.  
  3. Returns the corresponding tick value of the length-symbol. The tick values are autocorrected so that they add to the right tick sum in longer run. Auto-correction takes place if the tick value cannot be realized as a one tick value, as is the case with very small length symbols.
  4.  
  5. (get-tick '1/2)
  6. --> 960
  7.  
  8. (get-tick '1/2-7)
  9. 137 
  10. (get-tick '1/2-7)
  11. 137 
  12. (get-tick '1/2-7)
  13. 137 
  14. (get-tick '1/2-7)
  15. 137 
  16. (get-tick '1/2-7)
  17. 137 
  18. (get-tick '1/2-7)
  19. 138 
  20. (get-tick '1/2-7)
  21. 137
  22.  
  23. (+ 137 137 137 137 137 138 137)
  24. --> 960
  25.  
  26. Autocorrection handles all cases keeping the ticks withing a range, no matter in what order they are generated. It works keeping track of generated irrational lengths and calculates new values agains already calculated values, zeroing the process after the -n or the required number of dots ..... Nonstandard lengts like 1/5, 1/7 will be also adjusted.
  27.